Исходный код

Option Explicit
Call CreateRole(ThisObject)


'==============================================================================
' Создать тип роли Согласование, если она отсутствует в системе.
'Выполнять данный скрипт может только пользователь с правами системного администратора.
'==============================================================================
Sub CreateRole(ObjToCopy)

        Dim RoleDefs, NewRoleDef
        
        'Получить ссылку на коллекцию типов ролей
        Set RoleDefs = ThisApplication.RoleDefs
        
        ' Если роль уже есть в системе, сообщить об этом
        If RoleDefs.Has("ROLE_AGREE") Then
                MsgBox "Роль ""Согласование"" уже определена в системе."
                Exit Sub
        End If
                
        ' Создать новый тип роли
        Set NewRoleDef = RoleDefs.Create 
        NewRoleDef.SysName = "ROLE_AGREE"
        NewRoleDef.Description = "Согласование"
        
        ' Копировать права доступа с указанного объекта
        NewRoleDef.Permissions = ObjToCopy.Permissions 
End Sub 
'==============================================================================